      MODULE INMSOIL_MATHCONSTS
      
      REAL ::
     :	PI = 3.1415926536,
     :	maxit = 3
     
      END